home *** CD-ROM | disk | FTP | other *** search
- object FormImport: TFormImport
- Left = 302
- Top = 263
- HelpContext = 445
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Import Records'
- ClientHeight = 444
- ClientWidth = 581
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- ShowHint = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 581
- Height = 378
- Align = alTop
- TabOrder = 0
- object Notebook1: TNotebook
- Left = 1
- Top = 1
- Width = 579
- Height = 376
- Align = alClient
- TabOrder = 0
- OnPageChanged = Notebook1PageChanged
- object TPage
- Left = 0
- Top = 0
- Caption = 'First'
- object GroupBox1: TGroupBox
- Left = 19
- Top = 14
- Width = 542
- Height = 57
- Caption = 'File Name'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object SpeedButton1: TSpeedButton
- Left = 495
- Top = 21
- Width = 27
- Height = 24
- Hint = 'Select Filename'
- Glyph.Data = {
- 42020000424D4202000000000000420000002800000010000000100000000100
- 1000030000000002000000000000000000000000000000000000007C0000E003
- 00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C
- 1F7C1F7C1F7C8031803140664066E03D4066E03D4066E03D4066E03D00001F7C
- 1F7C1F7C1F7C8031F27F80314066406640664066E03D4066E03D4066E03D0000
- 1F7C1F7C1F7C8031F27F207F8031406640664066406640664066E03D4066E03D
- 00001F7C1F7C8031F27FFF7F207F8031406640664066406640664066E03D4066
- E03D00001F7C8031F27F207FFF7F207F80318031803180318031803180318031
- 8031803100008031F27FFF7F207FFF7F207F207F207F207F207F00001F7C1F7C
- 1F7C1F7C1F7C8031F27F207FFF7FF27FF27FF27FF27FF27FF27F00001F7C1F7C
- 1F7C1F7C1F7C8031FF7FF27F326780318031803180318031803180311F7C1F7C
- 1F7C1F7C1F7C1F7C8031803180311F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CCC00
- CC00CC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- D200CC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD2001F7C1F7C1F7CD200
- 1F7CCC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD200D200D2001F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C}
- OnClick = SpeedButton1Click
- end
- object EditName: TEdit
- Left = 17
- Top = 21
- Width = 478
- Height = 24
- Cursor = crArrow
- Hint = 'Click Right Button To Select Filename'
- ReadOnly = True
- TabOrder = 0
- end
- end
- object GroupBox2: TGroupBox
- Left = 19
- Top = 80
- Width = 542
- Height = 280
- Caption = 'Records'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object RxDBGrid1: TRxDBGrid
- Left = 17
- Top = 22
- Width = 505
- Height = 243
- DataSource = DataSource1
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = ANSI_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -13
- TitleFont.Name = 'Arial'
- TitleFont.Style = []
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Second'
- object LabelSorrce: TLabel
- Left = 21
- Top = 45
- Width = 223
- Height = 16
- Alignment = taCenter
- AutoSize = False
- Caption = 'Source Database'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 22
- Top = 15
- Width = 509
- Height = 16
- Caption =
- 'The fields in the Source Database box must match the fields in t' +
- 'he Target Database box'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object btn1: TSpeedButton
- Left = 242
- Top = 154
- Width = 24
- Height = 26
- Hint = 'Move Up Item'
- Flat = True
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077770000077770007777066607777000777706660777
- 7000777706660777700070000666000070007706666666077000777066666077
- 7000777706660777700077777060777770007777770777777000777777777777
- 7000}
- OnClick = btn1Click
- end
- object btn2: TSpeedButton
- Left = 242
- Top = 180
- Width = 24
- Height = 26
- Hint = 'Move Down Item'
- Flat = True
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077777707777770007777706077777000777706660777
- 7000777066666077700077066666660770007000066600007000777706660777
- 7000777706660777700077770666077770007777000007777000777777777777
- 7000}
- OnClick = btn2Click
- end
- object btn3: TSpeedButton
- Left = 242
- Top = 206
- Width = 24
- Height = 26
- Hint = 'Delete Selected Items'
- Flat = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000011000000110000000100
- 040000000000CC00000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 777770000000777777777777777770000000777777777777770F700000007777
- 0F777777777770000000777000F7777770F770000000777000F777770F777000
- 00007777000F77700F777000000077777000F700F7777000000077777700000F
- 7777700000007777777000F777777000000077777700000F7777700000007777
- 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
- 00007700F7777777700F70000000777777777777777770000000777777777777
- 777770000000}
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btn3Click
- end
- object btn4: TSpeedButton
- Left = 242
- Top = 232
- Width = 24
- Height = 26
- Hint = 'Refill Items'
- Flat = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Glyph.Data = {
- E6000000424DE60000000000000076000000280000000F0000000E0000000100
- 0400000000007000000000000000000000001000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFF0087FFFFFFFFFFFF0B3087FFFFFFFFFFF0BB0087FF
- FFFFFFFF0BB3008FFFFFFFFFF0BBB008FFFFFFFFF00BBB007FFFFFFF00BBB007
- FFF0FFFFF00BBB007FF0FFFFFFF00BB007F0FFFFFFFFF00B0070FFFFFFFFFFF0
- 00F0FFFFFFFFFFFFFFF0}
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btn4Click
- end
- object btn8: TSpeedButton
- Left = 532
- Top = 236
- Width = 24
- Height = 26
- Hint = 'Refill Items'
- Flat = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Glyph.Data = {
- E6000000424DE60000000000000076000000280000000F0000000E0000000100
- 0400000000007000000000000000000000001000000000000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFF0087FFFFFFFFFFFF0B3087FFFFFFFFFFF0BB0087FF
- FFFFFFFF0BB3008FFFFFFFFFF0BBB008FFFFFFFFF00BBB007FFFFFFF00BBB007
- FFF0FFFFF00BBB007FF0FFFFFFF00BB007F0FFFFFFFFF00B0070FFFFFFFFFFF0
- 00F0FFFFFFFFFFFFFFF0}
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btn8Click
- end
- object btn7: TSpeedButton
- Left = 532
- Top = 210
- Width = 24
- Height = 26
- Hint = 'Delete Selected Items'
- Flat = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000011000000110000000100
- 040000000000CC00000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 777770000000777777777777777770000000777777777777770F700000007777
- 0F777777777770000000777000F7777770F770000000777000F777770F777000
- 00007777000F77700F777000000077777000F700F7777000000077777700000F
- 7777700000007777777000F777777000000077777700000F7777700000007777
- 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
- 00007700F7777777700F70000000777777777777777770000000777777777777
- 777770000000}
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btn7Click
- end
- object btn6: TSpeedButton
- Left = 532
- Top = 184
- Width = 24
- Height = 26
- Hint = 'Move Down Item'
- Flat = True
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077777707777770007777706077777000777706660777
- 7000777066666077700077066666660770007000066600007000777706660777
- 7000777706660777700077770666077770007777000007777000777777777777
- 7000}
- OnClick = btn6Click
- end
- object btn5: TSpeedButton
- Left = 532
- Top = 158
- Width = 24
- Height = 26
- Hint = 'Move Up Item'
- Flat = True
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077770000077770007777066607777000777706660777
- 7000777706660777700070000666000070007706666666077000777066666077
- 7000777706660777700077777060777770007777770777777000777777777777
- 7000}
- OnClick = btn5Click
- end
- object LabelTarget: TLabel
- Left = 313
- Top = 45
- Width = 219
- Height = 16
- Alignment = taCenter
- AutoSize = False
- Caption = 'Target Database'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ListBoxTarget: TListBox
- Left = 312
- Top = 67
- Width = 221
- Height = 286
- Hint =
- 'Shift+click or Ctrl+click to select multi-field'#13#10'Right-click to ' +
- 'open pop menu'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 16
- MultiSelect = True
- ParentFont = False
- PopupMenu = PopupMenu2
- Style = lbOwnerDrawFixed
- TabOrder = 0
- OnDrawItem = ListBoxTargetDrawItem
- end
- object ListBoxSource: TListBox
- Left = 22
- Top = 67
- Width = 221
- Height = 286
- Hint =
- 'Shift+click or Ctrl+click to select multi-field'#13#10'Right-click to ' +
- 'open pop menu'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 16
- MultiSelect = True
- ParentFont = False
- PopupMenu = PopupMenu1
- Style = lbOwnerDrawFixed
- TabOrder = 1
- OnDrawItem = ListBoxSourceDrawItem
- end
- end
- end
- end
- object btnHelp: TBitBtn
- Left = 78
- Top = 399
- Width = 75
- Height = 28
- Caption = '&Help'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnHelpClick
- end
- object btnBack: TBitBtn
- Left = 193
- Top = 399
- Width = 75
- Height = 28
- Caption = 'B&ack'
- Enabled = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = btnBackClick
- end
- object btnNext: TBitBtn
- Left = 307
- Top = 399
- Width = 75
- Height = 28
- Caption = 'N&ext'
- Enabled = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnNextClick
- end
- object btnCancel: TBitBtn
- Left = 422
- Top = 399
- Width = 75
- Height = 28
- Caption = 'Can&cel'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = btnCancelClick
- end
- object DataSource1: TDataSource
- DataSet = ADOTable1
- OnDataChange = DataSource1DataChange
- Left = 288
- Top = 384
- end
- object ADOTable1: TADOTable
- Connection = ADOConnection1
- Left = 261
- Top = 384
- end
- object ADOConnection1: TADOConnection
- LoginPrompt = False
- OnWillConnect = ADOConnection1WillConnect
- Left = 233
- Top = 384
- end
- object PopupMenu1: TPopupMenu
- Left = 89
- Top = 193
- object UpaField1: TMenuItem
- Caption = 'Move &Up Field'
- OnClick = btn1Click
- end
- object DownaField1: TMenuItem
- Caption = 'Move &Down Field'
- OnClick = btn2Click
- end
- object DeleteFields1: TMenuItem
- Caption = 'D&elete Fields'
- OnClick = btn3Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object RefillFields1: TMenuItem
- Caption = '&Refill Fields'
- OnClick = btn4Click
- end
- end
- object PopupMenu2: TPopupMenu
- Left = 393
- Top = 209
- object MenuItem1: TMenuItem
- Caption = 'Move &Up Field'
- OnClick = btn5Click
- end
- object MenuItem2: TMenuItem
- Caption = 'Move &Down Field'
- OnClick = btn6Click
- end
- object MenuItem3: TMenuItem
- Caption = 'D&elete Fields'
- OnClick = btn7Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object MenuItem4: TMenuItem
- Caption = '&Refill Fields'
- OnClick = btn8Click
- end
- end
- end
-